home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 031-040 / amok31 / environment / mpdat.mod < prev    next >
Text File  |  1993-11-04  |  1KB  |  56 lines
  1. IMPLEMENTATION MODULE MPDat;
  2.  
  3. FROM SYSTEM    IMPORT    ADR;
  4. FROM Arts    IMPORT    Assert;
  5. FROM ASCII    IMPORT    lf;
  6. FROM FileSystem IMPORT     File, Lookup, Close, ReadChar, WriteChar, done;
  7. FROM Strings    IMPORT    Length;
  8.  
  9.  
  10. PROCEDURE OpenConfig (VAR Datei : File; new : BOOLEAN);
  11. BEGIN
  12.  Lookup (Datei, "s:Compi.config", 0, new);
  13.  IF Datei.res#done THEN
  14.   Lookup (Datei, "s:Compi.config", 0, TRUE);
  15.  END;
  16.  Assert (Datei.res=done, ADR("Compi.config nicht initialisierbar!"));
  17. END OpenConfig;
  18.  
  19. PROCEDURE CloseConfig (Datei : File);
  20. BEGIN
  21.  Close (Datei)
  22. END CloseConfig;
  23.  
  24. PROCEDURE GetConfigParams (Datei : File; VAR Dummy : ARRAY OF CHAR);
  25. VAR ch     : CHAR;
  26.     i      : CARDINAL;
  27. BEGIN
  28.  i:=0;
  29.  LOOP
  30.   ReadChar (Datei, ch);
  31.   IF Datei.eof OR (Datei.res # done) OR (ch = lf) THEN  
  32.    Dummy [i] := 0C;
  33.    EXIT  
  34.   END;
  35.   Dummy [i] := ch;  INC (i);
  36.  END
  37. END GetConfigParams;
  38.  
  39. PROCEDURE SetConfigParams (Datei : File; VAR Dummy : ARRAY OF CHAR);
  40. VAR ch         : CHAR;
  41.     i, len      : LONGCARD;
  42. BEGIN
  43.  i:=0;  len := Length (Dummy);
  44.  LOOP
  45.   WriteChar (Datei, Dummy[i]);
  46.   IF (i = len+1) THEN 
  47.    WriteChar (Datei, lf); 
  48.    EXIT 
  49.   END;
  50.   INC (i);
  51.  END
  52. END SetConfigParams;
  53.  
  54.  
  55. END MPDat.Mod
  56.